home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / mm-1_07.lha / mm-1.07 / mm / 0.MT next >
Text File  |  1992-11-19  |  2KB  |  144 lines
  1. .\"------------
  2. .\" Cover sheet. Memorandum type 0-3 and "string".
  3. .\"------------
  4. .if !r Au .nr Au 1
  5. .nr cov*mt0-ind 1.1c
  6. .de cov@print-title
  7. .MOVE 4.8c 1.5c
  8. .S 8
  9. subject:
  10. .sp -1.1
  11. .S
  12. .PGFORM
  13. .B
  14. .ll 9c
  15. .fi
  16. .cov*title
  17. .R
  18. .ll
  19. .nf
  20. .if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
  21. .if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
  22. .fi
  23. ..
  24. .\"------------
  25. .de cov@print-authors
  26. .MOVE 5.7c 13.3c
  27. .nf
  28. .S 8
  29. \\$1:
  30. .br
  31. .S
  32. .sp -1
  33. .in 0.8c
  34. .B
  35. .nr cov*i 0 1
  36. .while \\n+[cov*i]<=\\n[cov*au] \{\
  37. .    cov@print-au1 \\n[cov*i] 1
  38. .    if \\n[Au] \{\
  39. .        cov@print-au2 \\n[cov*i] 3 4
  40. .        cov@print-au2 \\n[cov*i] 6 5
  41. .        cov@print-au1 \\n[cov*i] 7
  42. .        cov@print-au1 \\n[cov*i] 8
  43. .        cov@print-au1 \\n[cov*i] 9
  44. .    \}
  45. .    if \\n[cov*i]<\\n[cov*au] .SP 1
  46. .\}
  47. .R
  48. .if r cov*mt-tm-max \{\
  49. .    SP 1
  50. .    nr cov*i 0 1
  51. .    B
  52. TM
  53. .    in 1.5c
  54. .    sp -1
  55. .    while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
  56. .    in
  57. .    R
  58. .\}
  59. .fi
  60. .PGFORM
  61. ..
  62. .\"------------
  63. .\" index arg1
  64. .de cov@print-au1
  65. .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] 
  66. ..
  67. .\"------------
  68. .de cov@print-au2
  69. .\" index arg1 arg2
  70. .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
  71. .if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
  72. .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
  73. .br
  74. ..
  75. .\"------------
  76. .de cov@print-date
  77. .MOVE 4.8c 13.3c
  78. .S 8
  79. \\$1:
  80. .br
  81. .S
  82. .sp -1
  83. .in 0.8c
  84. .B "\\*[cov*new-date]"
  85. .br
  86. .PGFORM
  87. ..
  88. .\"------------
  89. .de cov@print-firm
  90. .if d cov*firm \{\
  91. .    MOVE 2.8c 0 17.7c
  92. .    S 18
  93. .    rj 1
  94. \fB\\*[cov*firm]\fP
  95. .    S
  96. .    PGFORM
  97. .\}
  98. ..
  99. .\"------------
  100. .de cov@print-abstract
  101. .SP 3
  102. .if d cov*abstract \{\
  103. .    misc@ev-keep cov*ev
  104. .    if \\n[cov*abs-ind]>0 \{\
  105. .        in +\\n[cov*abs-ind]u
  106. .        ll -\\n[cov*abs-ind]u
  107. .    \}
  108. .    ce
  109. \fI\\$1\fP
  110. .    SP 1.5
  111. .    fi
  112. .    cov*abstract
  113. .    br
  114. .    ev
  115. .\}
  116. ..
  117. .\"-----------------
  118. .ds cov*mt0-txt!1 MEMORANDUM FOR FILE
  119. .ds cov*mt0-txt!2 PROGRAMMER'S NOTES
  120. .ds cov*mt0-txt!3 ENGINEER'S NOTES
  121. .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  122. .\"
  123. .if !d cov*mt-printed \{\
  124. .    cov@print-firm
  125. .    cov@print-title subject
  126. .    cov@print-date date
  127. .    cov@print-authors from
  128. .    cov@print-abstract \\*[cov*abs-name]
  129. .    SP 3
  130. .    if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
  131. .        ce
  132. \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
  133. .        SP 1.5
  134. .    \}
  135. .    if \*[cov*mt-type]=6 \{\
  136. .        ce
  137. \fI\*[cov*mt-type-text]\fP
  138. .        SP 1.5
  139. .    \}
  140. .    pg@enable-top-trap
  141. .    pg@enable-trap
  142. .    ds cov*mt-printed
  143. .\}
  144.